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98629-90302-1 Firmware Internal Reference Specification 



PURPOSE 



This document is a guide to the design and implementation of 
the firmware on the 98629A interface card, known as "THEODORE". 



SCOPE 



This document is not intended to be a complete description 
of the firmware on the 98629A. It is a AID to understanding the 
workings of the firmware. The code listing contains many comments 
and notes which explain some details about the firmware. 
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98629A IRS — POWERUP/RESET 
Powerup code: 

1. ROM verification 

a. calculate logical redundancy checksum (LRC); 
try to generate error if bad 

2. RAM verification 

a. do checkerboard test; generate error if failure 
failure if: 

— memory doesn't contain what is written 

— memory doesn't reside at correct addresses 

3. CPU initialization 

a. Initialize stack pointer 

b. Set the interrupt vector register 

c. Set the interrupt mode 

4. Read default switches and set modem drivers 

a. read node address from switches and store in RAM 

b. clear RESET latch 

c. select external clock 

5. Peripheral verification and initialization 
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98629A IRS — POWERUP/RESET 

a. reset CTC channels and set up CTC interrupt vector 

b. set CTC channel to interrupt, and verify that it inter- 
rupts after minimum time 

c. reset SIO channels 

d. set up SIO channels 

e. verify all status registers in SIO 

f . test semaphore for functionality then leave it set. 

Common powerup/reset code: 

6. Test hooks 

a. allow SA test interrupt 

b. allow execution of downloaded code 

7. Set up data structures 

a* clear RAM 

b. initialize buffer pointers 

c. set up the data structures descriptor 

d. initialize alternate registers/SIO for data reception 

e. initialize COMMAND, ERROR_CODE, DSDP, etc. 
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98629A IRS — ' POWERUP/RESET 
8. Signal test complete to mainframe 

a. if powerup, give error interrupt with ERROR CODE=0 if 

no error, with ERR0R_C0DEs6 if self-test error 

b. clear semaphore 
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98629A IRS — IDLE LOOP 

Idle loop 

Functions performed in idle loop: 

— '• check response queue (RESP_QUEUE) for any packet responses 
(UA, RR, RCR) to be transmitted 

— check control queue (CTRL_QUEUE) for any connection request 

packets (SABMs) to be transmitted 

-- check the COMMAND register for control/status commands 

— check Rx buffer for amount of room available for packet 

reception; update RX_ROOM and alternate registers 

— if data has been received, update the Rx data and control 

fill pointers (FPs); interrupt mainframe if enabled 

— monitor Tx data and control FPs for appearance of data and/or 

control blocks 

IDLE: 

VAR CTL BLOCK: BOOLEAN; (« indicates presence of a TX Ctrl block*) 
RX WOOM: .. 2047; (• count of available bytes in Rx buffer •) 
RX~SIZE: 2048 (* size of Rx data buffer •) 
RXJ3YTE COUNT: 1 .. 256; (» B f register in CPU ■•) 
RX_BL0Clt_C0UNT: .. 7; (* number of 256 byte blocks avail in Rx 
buffer *) 

begin (* idle loop •) 

CTL_BLOCK:=FALSE; ' 

RX_R00M:=RAMSIZE-1; 
RX_BYTE_C0UNT:= RX ROOM MOD 256; 
RX_BL0CK_C0UNT:sRX ROOM DIV 256; 
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98629A IRS — IDLE LOOP 

while true do 
begin 

CHECK_ RESP_QUEUE (* check for responses to be transmitted *) 

if •CTRL_QUEUE_FILL<>CTRLJ3UEUE_EMPT then 
begin 

SABM_DEST:=CTRL_QUEUE_EMPT~; 

CTRL QUEUE FILL:=CTRL QUEUE EMPT+1 ; 

if CTRLJ3UrUE_EMPT=CTlL_QUEUE_END then (*do wrap*) 

CTRL QUEUE EMPT:=CTRL QUEUE 
if SEQ_TAB(SABM~DEST) then"" 

TX SABMCSABM DEST) (* Tx a SABM *) 
end (* CHECK~CTRL QUEUE *) 

CHECK_COMMAND (* check for control/status commands *) 

if RX EPORXDATABUFF_EMPT then (* Rx EP has moved *) 
B"egin 

RX_EP: =RXDATABUFF_EMPT 

if RXDATABUFF EMPTORXDATABUFF FILL then 

INTJ)RIVERS (READ_AVAIL_IffT) (* intr. MF *) 
end; ~ ~ "~ 

RX ROOM:=(RX_SIZE+RXDATABUFF EMPT-URX_FP INV) MOD RX_SIZE; 
" (* space avail in RXDATlBUFF is RX RftOM; RX_FP_INV is 
2»s complement of working Rx FT (RX_FP) *) 
RX BYTE COUNT :s RX ROOM MOD 256; (» init reg. B» *) 
RX BLOClC COUNT:= RX_ROOM DIV 256; .(• init reg. D» *) 
if RXJ3YTE_C0UNT :* then 

. RX_BLOCK_COUNT : = RX BLOCK_COUNT -1; (• B»=0 means 

RX_BYTE_COUNT=25'o\ so block count is decremented *) 

if RX_AVAIL then (* Rx data is available *) 

begin 

RX_AVAIL := false 
RXDATABUFF FILL:=RX FP; 
- RXCTRLBUFF~FILL:=RX~CTRL_FP; 
INTJ)RIVERS (READ_*VAIL_INT) 
end; 
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98629A IRS — IDLE LOOP 

CTRL_BLOCK_IN_TX; (• check for Tx control blocks *) 
if CTL_BLOCK then 
begin 

GETCTRLBLK (* consume the Tx control block *) 
if COMMANDS 101 then (* is a CLEAR command *) 
SEND_ERR0R (REG_ADDRJ3AD) ; (* give error; 
CLEAR command must be queued *) 
else 

EXEC_CTRL_BLOCK 
end (* Tx ctrl block executer •) 
else 

TEMP:=TXDATABUFF_FILL-TXDATABUFF_EMPT (* # bytes in Tx 

buffer; may be negative if wrapped *.) 
if TEMP =< TXDATABUFF_EMPT then (* buffer is wrapped •) 
• • TEMP:=TXDATABUFF FILL+TXDATASIZE 
if TEMP >=TXDATASIZE-2 then («too many chars w/o term*) 
begin 

TX DATABUFF EMPT:sTX_DATABUFF_FILL; (*empty 

■"" the Tx Buffer*); 
SEND_ERROR (NOJTERMINATOR) 
end; ~ 

end (* Tx ctrl block handler •) 
end; (* idle loop *) 
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98629A IRS — RECEIVE 



Receive 



When data is received by SIO Channel A, and the destination 
address matches my node address, the SIO will interrupt and generate a 
vector which branches to a routine called RECEIVE. The interrupt 
cause is "Rx character available". It's interrupt vector is seventh 
in the vector table. 

RECEIVE has a few things to do before it gets going. These tasks 
are as follows: 

1. Save CPU status (flags and accumulator). 

2. Read the first byte from the SIO (which is the destination 

address). This is done quickly, and buys time before SIO 
RX FIFO overrun. 

3. Get the parameters in the alternate register set for the block 

move. These parameters include byte count, source port num- 
ber, and destination address. 

4. Enable a watchdog timer on the CTC which will pull the CPU 

out of its wait state if the receive clock is lost during a 
data reception block move. Its timeout value is 65536 CPU 
clock cycles (17.778 milliseconds, or 1778 byte times). 

5. Read 1 more byte from the SIO quickly; it is the first byte 

put into the Rx data buffer. 

6. Give a RETI command to the SIO, and enable interrupts so that 

reception of the end of message ( EOM ), which is a Special 
Receive condition, will interrupt the CPU from its block 
move instruction. 

7. Finally, the CPU can begin its block move instructions. 
RECEIVE: 
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98629A IRS — RECEIVE 



begin 



GET RX PARAMS; 

SAVE CFU STATUS; 

READ_DEST_ADDR; 

ENABLE WD TIMER; 

READ_OTEJ5YTE; 

WRITE RETI; 

ENABLE_INTR; 

if RX BYTE COUNT = 



(* EXX *) 
(* EX AF,AF» «) 
(* IN A,[SIOAJ)ATA] *) 

(* write a control byte to ch. #0 in CTC *) 
(* INI, ensure no Rx overrun •) 
(* write a 00111000B to SIO clu A reg #0 *) 
(* EI *) 
_ _ then 
RXJ3L0CK_C0UNT:=RX_BL0CK_C0UNT-1; (* if byte count is now 
zero, block count must be adjusted •) 
repeat 

BLOCKJ40VE; (* INIR *) 
RX BLOCK C0UNT:= RX BLOCK COUNT -1 ; 
until RX_BL0(TK_C0UNT< "" 

RX OVERFLOW := true; 

TH1T0W_DATA_AWAY ; (• wait for SIO interrupt *) 
end; (* RECEIVE •) 

The SIO must be enabled to interrupt on Receive Character 
Available, and on Special Receive Condition before data is received. 

The registers will contain the following when the Special Receive 
Condition interrupt occurs: 

B»: byte count for the first block move (RXJ3YTE_C0UNT) 

C: SIOA DATA register pointer 

D f : bloclc count for the number of blocks that can be written 

to the Rx data buffer (RX BL0CK_C0UNT) 

pointer to the Rx data buffer 



HL» 
RECEIVE: 



EX AF.AF' 

IN A, [SIOA DATA] 



4T (* save CPU status, A reg *) 
11T (« read 1st byte in Rx FIFO 
15T before 1st port read «) 
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98629A IRS ~ RECEIVE 



EXX 




4T 


XOR 


A 


4T 


OUT 


[CTC 03, A 


11T 


INI 


(reacf 1 byte) 


13T 



LD A,RETI_CMD 

OUT [SI0A_CSR],A 

EI 

JP Z,B IS ZERO 



MORE RX ROOM: INIR 



B IS ZERO:DEC D 
"" ~ JP P,MORE_RXJROOM 



LD H,0 
NO RX ROOM: IN A,[C] 

"~ "" INC L 

JR NO RX ROOM 



(* get alt. register set *) 
(* Arwatchdog time const=0 *) 
(* start watchdog timer *) 
(• until SIO port is read *) 



32T between 1st read & 2nd read 

3T + shared memory wait (SMW) ' 

to finish INI 
7T (• get 38H to write to SIO •) 
11T (• write RETI to SIO *) 
4T (* enable interrupt from SIO *) 
10T (• if BsO, an extra block will 
be read if we don't set 
D:sD-1») 
13T (* until SIO port is read '•) 

45T normally between 2nd & 3rd read 

4T decrement RX_BL0CK_C0UNT 
10T loop if more room 

5?T between 2nd & 3rd reads if the 
"B_IS_ ZERO" jump was taken 

HL points to ROM 

throw data away 

update the LSB of the pointer 

wait for SIO interrupt 



Extensive testing 
the background routine 
probability of occurren 
byte from the SIO befor 
probability of occurren 
of shared memory waits) 
since it takes 19T + 2 
sampled true by the CPU 
This should be regarded 
sometime after 94T, but 



indicates that if interrupts are disabled in 
for 51T + 4 SMW (which have an indeterminate 
ce) there are 24T left for reading the 1st 
e Rx overrun occurs. Because of the unknown 
ce (and the unknown distribution of lengths 
, Rx overrun time is not known exactly. However 
SMW to get to the ISR after the interrupt is 
, Rx overrun occurs in > 51T+19T+24T or 94T. 
as a minimum. We know that Rx overrun occurs 
how much is not known. It is likely that 
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98629A IRS — RECEIVE 



actual overrun occurs somewhere around 95T to 98T. Consequently, 
interrupts in the background should not be disabled for more than 
51T + (24T-15T) or 60T + 4 SMW. If the background disable time or 
the receive data routine is ever changed, it should be tested 
extensively for Rx overruns. 



It is also known that 
if the "B_IS_ZERO" jump is 
received by the SIO near th 
(calculating RX_ROOM in the 
been set to 1 before data i 
occur if the RXDATABUFF is 
if this occurs, the Link Ac 
will be re-transmitted 20 t 
packets should be received 
empty by then. 



there is a finite probability of Rx overrun 
taken. It will occur if the first byte is 
e beginning of the 51T + 4 SMW disable time 

background), and if the B* register has 
s receTve<iU This last condition will only 
not empty, and RX_R00M mod 256 = 1. Even 
cess Protocol will assure that the packet 
imes, and one of these re-transmitted 
properly because the RXDATABUFF will be 
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98629A IRS — SIO INTERRUPTS 

There are two interrupt conditions from the SIO that are of 
interest. These are: 

1) Channel A Rx character avail (already discussed under RECEIVE) 

2) Channel A special receive condition 

— Rx overrun 

— received incorrect CRC 

— Rx end of frame 

The other six interrupting conditions should not occur so 
they will not be discussed here. The tasks that must be performed 
for the implemented interrupts are these: 

1) Channel A Rx Character Available 

The interrupt service routine for this interrupt is called 
RECEIVE, and has already been discussed. 

2) Channel A Special Receive Condition 

The conditions that can generate this interrupt are these: 

— Rx end of frame 

— Rx overrun 

— Received incorrect CRC 

These three conditions all occur at the end of a reception of a 
message packet. The interface will rely on this interrupt to termi- 
nate the block move instruction being executed within RECEIVE when the 
end of frame occurs. The cause for this interrupt can be determined 
by reading SIO status register 1, where each of the above causes has 
its own status bit. The first actions, regardless of the cause for 
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• 98629A IRS — SIO INTERRUPTS 

the interrupt, will be to disable the watchdog timer and to throw away 
the, return address so that the return from interrupt will return to 
the background routine and not to RECEIVE. The other actions are 
determined by the cause of the interrupt: 

a. Rx overrun 

An interrupt for this reason indicates a failure of the CPU 
to keep up with the data being received. Location RX_OVR_COUNT is 
incremented. Any data received prior to the overrun is ignored. 
It should be noted that the Link Access Protocol's retry mechanism 
will recover from this error if it occurs. 

b. Received incorrect CRC 

An interrupt for this reason indicates that data has been 
corrupted in transmission. The particular location and extent of the 
bad data is unknown, and since the destination address could be in 
error, any data received with an incorrect CRC is ignored. Location 
CRCJ£RR_COUNT is incremented. It should be noted that the Link Access 
Protocol's retry mechanism will recover from this error if it occurs. 

c. Rx end of frame 

This condition is the normal termination of a received data 
packet (this is fortunate since the other two ignore the data !). 
When this interrupt cause occurs, the processor will do the following 
things: 

— throw away the return address so that the RETI ending the ISR 

will not cause the CPU to return to an INIR instruction 

— check for RXDATABUFF overflow (if there wasn't enough room to 

hold the whole Rx message RX_OVF_COUNT is incremented and 
message is ignored. The Link Access Protocol's retry 
mechanism will recover from this.) 
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98629A IRS — SIO INTERRUPTS 

turn off the watchdog timer 

back up the buffer pointer past the CRC bytes in the buffer 

if the received message is an information packet (I), roll 
call response (RCR), or an unnumbered information (UI, 
which are broadcast packets), the message is forwarded to 
the mainframe and an appropriate response may be queued. 
If the received message is a response (UA, RCR, or RR), the 
occurrence is noted and the message is thrown away. If the 
received message is a connection request (SABM), a response 
is queued and the message is discarded. 

If the message. is queued to the mainframe: 

- update RX_FP, the working Rx data buffer fill pointer 

- generate the appropriate control block in the Rx control 

buffer 

- update RX_CTRL_FP, the working Rx Ctrl buffer fill pointer 

- set RXJIVAIL true 

- update RX_ROOM & RX_FP_INV 

set up interrupt registers for the next reception 

restore CPU status as it was before the Rx Character Available 
Interrupt 

enable interrupts 

return from interrupt 
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98629A IRS ~ SIO INTERRUPTS 

The algorithm to perform these tasks is this: 

SPECJ*X_INT (BUF_PTR); 
begin 

STACK_POIMTER:=STACK POINTER+2; (* throw away the return *) 
if RX OVERFLOW r true then 

IX_OVF_COUNT := RX_OVF_COUNT +1; 
else "" 
begin 

case SI0_RR#1 of 

RX_OVERRUN: RXj}VR_C0UNT: = RXJ)VRj:0UNT+1 ; 

RX_CRC_ERROR: CRC_ERR_C0UNT:rCRCJERR_C0UNT+1 ; 

RESIDUE_ERROR: CRC_ERR_C0UNT:=CRC_ERR_C0UNT+1 ; 

case else (* Rx data correctly •) 
begin 

INIT_CTC; 
-BUF PTR:sBUF PTR-2; 
if BUF PTR <~RXDATABUFF ADDR then 

BUF_PTR:=BUF PTR+RX SIZE 
RX COUNT: s BUF PTl - RX FP 
case PACKET_TY?E of ~ 

UAJTYPE, RRJTYPE: 
"" begin 

ACK_MBOX TYPE:=PACKET TYPE; 
ACK_MBOX NODE:sSOURCE*~ADDR; 
ACK MBOX VALID :=true " 
end (* UXJTYPE & RRJTYPE •) 

RCJTYPE: 

WRITE__RESP_QUEUE (SOURCE ADDR, RCR TYPE, 
USER_SEQJLSB) 

SABMJTYPE: * 

WRITE RESP QUEUE (SOURCE ADDR, UA TYPE) 
SEQJTlB. CONNECT [SOURCEjTDDRJ : rtrue; 
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98629A IRS — SIO INTERRUPTS 

RCR TYPE, UI TYPE: 

" WRITE_CTRL_BLOCK; (* generate the pointe 
term, - and mode in a Rx ctrl block*) 

IJTYPE: 
begin 

if not SEQJTAB. CONNECTC SOURCE_ADDR ] then 
begin 

CTRL QUEUE FILL": =SOURCE ADDR; 
CTRL~QUEUE^ILL:=CTRL_QUrUE_FILL+1 ; 
if CTRL QUEUE FILL=CTRL QUEUE END 

then"CTRLjJUEUE_FILLTsCTRL~QUEUE ; 
if CTRL QUEUE FILLrCTRL QUEUE_EMPT 
then RX_OVF_COUNT: = Rlj)VF COUNT* 1 
end (* not connected with node *) 
else 
begin 

Ns:*(TYPE FIELD mod 15)*16; 
VrrsSEQ TAB.Vr[SOURCE_ADDR] ; 
if VrrNs then 
begin 

WRITE CTRL_BLOCK; 
Yr:rVr*1; 

SEQ TAB.Vr[SOURCE ADDR]:rVr; 
EXP~RESPJTYPE:=RR TYPE+Vr; 
WRITE RESP QUEUE TEXP RESP TYPE, 
SOURCE _XDDR) 
end (* I packet in sequence *) 
else 
begin 

EXP RESP TYPE: =RR TYPE+Vr; 
WRITE_RE5P_QUEUE TEXP_RESP_TYPE, 

SOURCE ADDR) 
BAD SEQ_NUDE:=S0URCEJ1DDR; 
end (*" I packet out of sequence *) 
end (* connected with node *) 
end (* I packet case •) 
end (* Rx data correctly case *) 
INIT_ALT_REGS; (• get prepared to receive data again *) 
RESTORE_STATUS; 
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98629A IRS — SIO INTERRUPTS 



ENABLE_INTR; 
RETURN_FROM_INTERRUPT 
end; (* Special Receive Interrupt *) 



WRITE CTRL BLOCK (SOURCE ADDR PTR, BUF PTR, RX CTRL FP, RX CTRL EP, 

RX_CUUNT)7 "" ~ 

begin 

RX_CTRL_FP*:=(RX_PTR div 256) mod 128; (*MSB of RX_PTR w/ most 

significant bit cleared for M/F*) 
RX_CTRL FP:=RX_CTRL_FP+1; 

RX CTRL"FP":=(RX PTR mod 256); (* LSB of RX PTR *) 
RX~CTRL~FP:=RX_CTRL_FP+1; "~ 

RX_CTRL_FP~:=END_DATA_TERM; 
RX CTRL FP:=RX CTRL_FP+1; 
RX_CTRL_FP~:=END DATAJ40DE; 
RX CTRL FP:=RX CTRL FP+1; 
if RX CTRL FP=IXCTRLBUFF END then 

1TX_CT , RL_FP:=RXCTRLBUFF (* do wrap *) 
if not RX CTRL FP:sRX CTRL EP then (* not overflowed the Rx 

"" ctrl buffer *) 

begin 

TYPE_FIELD:rO; (* clear command/type field for M/F *) 
RX FP:= RX PTR; (» set working FP *) 
RX FP INV:=-RX FP; (* get 2's complement RXJFP *) 
RX AVllL:= true; 
RX~ROOM:=RX_ROOM-RX_COUNT; 
end (* Rx ctrl buffer not overflowed •) 
end; (* WRITE_CTRL_BUFFER *) 
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98629A IRS — TRANSMIT 



Transmit 



Data is transmitted by the interface to another GANGLINK node 
whenever a data packet is given to it by the mainframe. When 
the control block is generated by the mainframe, and the Tx data buf- 
fer fill pointer is moved, the interface will send the data over the 
link. The tasks performed by the interface are these: 

— fill in the source address, packet length, & control fields 

— get a pointer to the first byte in the message packet 

— enable the transmitter to send flags 

— monitor CS and do a timeout on it until it goes true 

— when CS goes true, disable the receiver 

— calculate the number of bytes to be transmitted, taking 

wraparound into account 

— enable the watchdog timer 

— call the appropriate transmit routine 

— disable the watchdog timer 

— enable the receiver if room in the receive buffer 

— wait the basic waiting time (to enable the receiver(s) to pre- 
pare for another reception) 

— disable the transmitter 
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98629A IRS — TRANSMIT 
This also is described algorithmically thus: 



PROCEDURE TRANSMIT (TX_FP; TX_EP; TX_DATA_BUFFER) ; 



begin 



if TX FP > TX EP then (* no buffer wraparound *) 
FACKET_STZE := TX_FP - TX_EP -1; 
TXJJRAPPEDisfalse; 
else 

begin 

TX WRAPPED :strue; 

PACKET_SIZE:= TX_FP +TXDATABUFF_SIZE -TXJEP -1; 
end; <* wrapped *) 
if (PACKET SIZE > 767) or (PACKETJSIZE < 5) then 

send Error cnojtermination); 

PACKETJSIZE :=PACKET_SIZE+2; (• add 2 for CRC «) 

WRITE INTO TX; (* write source address, packet length *) 

COMMAflDJFlT? LD : = I_TYPE ; 

if TX LEVEL=2 then (« roll call type •) 

UOMMAND_F IELD : sRC_TYPE ; 
if DEST ADDRTs 255 then (* broadcast unnumbered info type *) 

COtfMAND_FIELD:sUI TYPE; 
if COMMANDJFIELDOIJTYPE then 
begin"" "~ 

TX PACKET; (* transmit the packet ») 
if GOT MISSING CLK then 

SfND_ERROTT (MISSING_CLK) 
end (* UI & RC type *) 
else (* Tx I packet •) 
begin 

if not SEQ TAB.CONNECTED[SOURCE ADDR] then 

TXJSAlM (* transmit an SABH, require UA response*) 
Vr:=SEQ TAB.YrCDEST ADDR]; 
Ns:sSEQ"TAB.Vs[DEST_ADDR]; 
Vs:=Ns+1; 

SEQ TAB.VsCDEST ADDR]:=Vs; * 

COMHAND_BYTE:=Vr*32+Ns+16; (* COMMAND BYTE is I type *) 
TXDATABUFF.C0MMANDJ3YTE:=C0MMAND_BYTE; (* put in packet 
ACK_MBOX_VALID:=false; 
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98629A IRS ~ TRANSMIT 

repeat 

begin 

TX_RETRY_COUNT:sMAX_RETRIES; 
TX EP:sTXDATABUFF_EMPT; 
TX"~PACKET; (* transmit the data *) 
EXP TYPE:=SEQ TAB.Vs[DEST_ADDR3*16+RRJTYPE; 
WAIT FOR RESPlDEST ADDR,EXP TYPE, RX TYPE) ; 
if RX_TYFEsUA_TOJ>EST then T*reset 7s if he 
wasn't connected to us *) 
SEQ_TAB.VsCDEST_ADDR]:=0; 
if RX TYPEsEXP TYPE then (* Rx correct RR *) 

ZTORRECT_RfSPONSE : strue 
else 

TX_RETRY_C0UNT:=TX_RETRY_C0UNT-1; 
end (* Tx retry loop *) "". 
until CORRECT_RESPONSE or TX_RETRY_COUNT=0; 
if not CORRECT RESPONSE then~*(* retry count exhausted*) 
if GOT MISSING CLK then (* failed by msg. clock *) 

SEND_ERROl(MISSING_CLK); 
else 

SEND ERROR(LINK_ERRJIUM); (*data link failure 
TX EP;=TX~FP; (• consume the Tx packet *) 
SE5 TAB.C$NNECT[DEST ADDR]:=false; (• disconnect*) 
TXDATABUFF_EMPT:sTX_EP mo? 32768 (* update EP *) 
end (* Tx I packet *) ~ 
end (* TRANSMIT *) 



TXJ>ACKET(TXj:OUNT,TXjn?APPED_FLAG,TX_EP,TXJFP); 
begin ~" 

GET CS TRUE(SUCCESS); 
if not SUCCESS then 

SEND_ERROR(CTS_FALSE); (* CTS false too long *) 
else 

if not TX_WRAPPED_FLAG then (* Tx not wrapped *) 
begin "~ 

BLOCK_COUNT : = TX_COUNT div 256; 
BYTE COUNT :=TX COUNT mod 256 ;„ 
if BYTE COUNT = then 



ENABLE 



BLOCK_COUNT : = BLOCK_COUNT - 1; 

E_ WD; (* enable the watchdog timer in the CTC 
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else 



98629A IRS — TRANSMIT 

case TX_COUNT of 

<257: TX_FIRST BYTE; 

RESETJTXJEOM; (» enable intr. at Tx EOM «) 
TX_BLOCK; (« Tx up to 255 bytes *) 

>256&<513: TX_FIRST_BYTE; 
RESET TX EOM; 
TX_BLffCKj 
TXJBLOCK; 

>512: TX FIRST BYTE; 
RESET TX~EOM; 
TX BLOCK; 
TX~BLOCK; 
TX_BLOCK; 

end (* case *) 
INIT CTC; 
if BUFFER PTR=TXDATABUFFEND then 

BUFFER PTR=TXDATABUFF (* do wrap *) 
TX EP:=BUFFER_PTR; 
end (* Tx not wrapped *) 

begin (* do wraparound *) 

ENABLE WD; (• turn on the watchdog timer *) 

TX_EP'~: = TX_BUF_ADDR; 

PACKET SIZE' := TX FP - TX EP«; 

BLOCK JTOUNT' : = PACKETJ5IZF' DIV 256; 

BYTE_COUNT» : = PACKET_SIZE» MOD 256; 

if BYTE COUNT 1 := then 

BLUCK_COUNT f := BLOCK_COUNT» -T; 
PACKET SIZE := TX BUF END - TX EP -1; 
BLOCK JTOUNT := PATKETHSIZE DIV~256; 
BYTE COUNT := PACKET SIZE MOD 256; 
if BYTE_COUNT. = then # 

BLOCK_COUNT :s BLOCK_COUNT - 1; 
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98629A IRS — TRANSMIT 

(•■ There is a lengthy case statement here in the 
actual code which predetermines the transmit 
routine to use based on BLOCK_COUNT, 
BLOCK_COUNT», BYTE_COUNT, & BYTE_COUNT. 
See the source code for details. *) 

TX_ONE_BYTE; 

ENABLE TX EOM; 

TXJ)ATIjBEFORE_WRAP; (» see source code for 'details 

TX_DATA AFTER WRAP; (* see source code for details 

TX EP: = BUFFER PTR; 

-INlTjnX; "" 
end; (* wraparound *) 
WAITJIWHILE; (* wait 800 uS for trailing flags to be sent *) 
ENABLE_RX; (* enable the SIO to receive data again *) 
DISABLE TX (* disable the SIO from transmitting flags *) 
(• TX DATA ▼) 
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98629A IRS -- EXEC COMMAND 

When the COMMAND register is found to be non-zero, the mainframe 
is requesting action of some kind from the interface. This action is 
to be a status response or a control command. Also, when a control 
block is written, it has the same effect as a control command. The 
following events take place: 

1) Read the command from COMMAND 

2) Execute the command, which may entail the following: 



a. If the command is a write to a control register (bit 7= 1) 

the register number is encoded in the least significant 
bits of the command, and the data to be written is in the 
DATA_REG. Thus, the processor reads DATA_REG and writes 
its contents into the control "register". Note that this 
register may not exist as an actual 8-bit memory 
location; it's bits may be mapped into different 
locations. Therefore, the control registers (and status 
registers) are LOGICAL registers which are managed by 
the processor on the card. 

b. If the command is a read from a status register (bit 7= 0) 

the register number is again encoded in the command. The 
processor will read the command, get the data requested, 
and write that data into DATA_REG. 

3) At the end of the execution of either a status or control 

command, the processor will clear COMMAND as a signal of com- 
pletion. If the mainframe expects to read data from 
DATA_REG, this is also a signal that the data is in DATA_REG. 

This can be expressed in this manner: 

PROCEDURE EXEC_CTRL_BLOCK (TERM; MODE); 



begin 



case TERM of: 
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98629A IRS — EXEC COMMAND 
0,2, 4, 6-1 1,1 3-100, 102.. 110, 112.. 119, 125.. 127: 

begin 



end; 



SEND ERROR (REG ADDR ERR) 



3: begin (* set protocol ID *) 

if MODE <> PROTOCOL ID (which is 3) then 
SEND_ERROR (RESjALUE) 
end; 

5: begin (* transmit terminator # ) 
TRANSMIT; 
end; 

12: begin (* set maximum # of Tx retries *) 
JMAXRETRIES:= MODE 
end; 

101: begin (* CLEAR *) 

GET ACCESS; (* get access to buffer pointers *) 
RX_EATA_FP: = RX_DATA EP; 
RX CTRL FP:= RX CTRL~EP; 
TX~DATA"*FP:s TX~DATA~EP; 
TX CTRL~FP:= TX CTRL_EP; 

RErEASE_ACCESS T*release access to pointers *) 
INIT_SI0A (« initialize channel A of SIO *) 
end; 

111: begin (* ignore command *) 
end; 

120: begin (* JUMP TO RAM *) 

goto location pointed to by MODE 
end; ^ 

121: begin (« INT_COND MASK «) 
INT_C0ND_MASK:s MODE 
end; 
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98629A IRS — EXEC COMMAND 

123: begin (* set magic poke/peek pointer *) 
POKE_PEEK_PTR : = MODE 
end; 

124: begin (* magic poke *) 
POKE_PEEK_PTR~:=MODE 
end; 
end (* CONTROL command *) 



EXEC_STATUS ;(* STATUS command •). 
REGISTER// : = COMMAND; case REGISTER of 

0.»2, 4, 9-1 1,1 3-120, 122, 123, 125-127: 
begin 



end; 



SEND ERROR (REG RANGE) 



3: begin (* protocol ID *) 

DATA_REG : = PROTOCOLED 
end; 

6: begin (* Node address returned •) 
DATA_REG :s NODEJIDDR *) 

end; "" ~* 

7: begin (* CRC error count *) 
DATA_REG : = CRC_ERR_COUMT 
end; 

8: begin (* Rx overflow count *) 
DATA_REG := RX_0VF_C0UNT 
end; 

12: begin (* Tx retry counter *) 
DATA_REG :r RETRY_COUNTER 
end; 
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98629A IRS — EXEC COMMAND 

121: begin (* return INT_COND mask «) 
DATAJtEG :s INT_COND_MASK 
end; "" 

124: begin (* magic peek •) 
case POKE_PTR of 

SIOAJDATA, SIOA_CSR, SIOB_DATA, SIOB_CSR, 
CTC 0, CTC 1, CTC 2, CTC 3, 
SWlTCH_BLK~A, SWITCH_BLK~B: 

DATA_REG : = POKE_PEEK_PTR~; 

case else 

SEND_ERROR (REGJIDDRJERR) ; 
end; ""• 

end 
end; (* EXEC_STATUS *) 
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